این کارو میشه با دو روش انجام داد:

1. روش Input:

برای این کار باید ابتدا یک فایل رو باز کنیم و به اون یه شماره اختصاص بدیم. یه دکمه و یه OpenFileDialog برا فرمتون بزارین بعد کد زیر رو برا دکمه بزارین:

        OpenFileDialog1.Filter = "Text files (*.txt)|*.txt"

        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)

            TextBox1.Text = LineInput(1)

            FileClose(1)

        End If

توضیح:

الف. ابتدا برای OpenFileDialog فیلتر فایل های متنی رو میزاریم.

ب. سپس با دستور FileOpen یک فایل رو با مد Input باز میکنیم.

پ. جعبه متن رو با دستور LineInput پر میکنیم.

توجه: با این روش برای خواندن هر خط از فایل متنی باید یه LineInput نوشت از اونجا که ما تعداد خط های فایل متنی ای که میخوایم بازش کنیم رو نمیدونیم روش باینری (روش بعدی) آسونتره.

ت. در آخر هم باید فایل باز شده حتما بسته شه وگرنه از حجم حافظه کامپیوتر کم میشه.

دانلود نمونه برنامه با سورس | حجم:  83Kb| فرمت: rar

2. روش باینری (Binary):

مثل روش بالا عمل کنین و کد زیر رو برا دکمه بزارین:

        OpenFileDialog1.Filter = "Text files (*.txt)|*.txt"

        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

            FileOpen(1, OpenFileDialog1.FileName, OpenMode.Binary)

            TextBox1.Text = Space(LOF(1))

            FileGet(1, TextBox1.Text)

            FileClose(1)

        End If

توضیح:

الف. ابتدا مثل روش قبل فیلتر فایل های متنی رو برای OpenFileDialog میزاریم.

ب. سپس فایل رو با دستور FileOpen و با روش Binary (باینری) باز میکنیم.

پ. سپس باید به اندازه ی فایلی که میخوایم باز کنیم فضای خالی ایجاد کنیم. برای این کار با دستور Space فضای خالی و با دستور LOF (Length Of File) تعداد کاراکترهای فایل رو برای ایجاد فضای خالی میگیریم.

ت. در آخر هم با دستور FileGet جعبه متنمونو پر میکنیم و با دستور FileClose فایل باز شده رو میبندیم.

دانلود نمونه برنامه با سورس | حجم:  83Kb| فرمت: rar

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: